home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / clx / package.lisp < prev    next >
Text File  |  1992-05-31  |  22KB  |  395 lines
  1. ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Lowercase: Yes;  -*-
  2.  
  3. ;;; Copyright 1990 Massachusetts Institute of Technology, Cambridge,
  4. ;;; Massachusetts.  All Rights Reserved.
  5. ;;; 
  6. ;;; Permission to use, copy, modify, and distribute this software and its
  7. ;;; documentation for any purpose and without fee is hereby granted, provided
  8. ;;; that the above copyright notice appear in all copies and that both that
  9. ;;; copyright notice and this permission notice appear in supporting
  10. ;;; documentation, and that the name MIT not be used in advertising or
  11. ;;; publicity pertaining to distribution of the software without specific,
  12. ;;; written prior permission.
  13.  
  14. ;;; The CLtL way
  15.  
  16. #-clx-ansi-common-lisp 
  17. (lisp:in-package :xlib :use '(:lisp #+(and kcl clos-conditions) :conditions))
  18.  
  19. #+(and (or kcl ibcl) (not clx-ansi-common-lisp))
  20. (shadow 
  21.   '(
  22.     rational
  23.     ))
  24.  
  25. #+(and lispm (not clx-ansi-common-lisp))
  26. (import
  27.   '(
  28.     sys:arglist
  29.     sys:with-stack-list
  30.     sys:with-stack-list*
  31.     ))
  32.  
  33. #+(and Genera (not clx-ansi-common-lisp))
  34. (import
  35.   '(
  36.     future-common-lisp:print-unreadable-object
  37.     future-common-lisp:with-standard-io-syntax
  38.     sys:array-register
  39.     zwei:indentation
  40.     ))
  41.  
  42. #+(and lcl3.0 (not clx-ansi-common-lisp))
  43. (import
  44.   '(
  45.     lcl:arglist
  46.     lcl:dynamic-extent
  47.     lcl:type-error
  48.     lucid::type-error-datum
  49.     lucid::type-error-expected-type
  50.     ))
  51.  
  52. #+(and excl (not clx-ansi-common-lisp)) 
  53. (import
  54.   '(
  55.     excl::arglist
  56.     excl::dynamic-extent
  57.     excl::type-error
  58.     excl::type-error-datum
  59.     excl::type-error-expected-type
  60.     ))
  61.  
  62. #+(and allegro (not clx-ansi-common-lisp))
  63. (import
  64.   '(
  65.     excl::without-interrupts
  66.     ))
  67.  
  68. #-clx-ansi-common-lisp
  69. (export
  70.   '(
  71.     *version* access-control access-error access-hosts
  72.     activate-screen-saver add-access-host add-resource add-to-save-set
  73.     alist alloc-color alloc-color-cells alloc-color-planes alloc-error
  74.     allow-events angle arc-seq array-index atom-error atom-name
  75.     bell bit-gravity bitmap bitmap-format bitmap-format-lsb-first-p
  76.     bitmap-format-p bitmap-format-pad bitmap-format-unit bitmap-image
  77.     boole-constant boolean card16 card29 card32 card8
  78.     card8->char change-active-pointer-grab change-keyboard-control
  79.     change-keyboard-mapping change-pointer-control change-property
  80.     char->card8 char-ascent char-attributes char-descent
  81.     char-left-bearing char-right-bearing char-width character->keysyms
  82.     character-in-map-p circulate-window-down circulate-window-up clear-area
  83.     close-display close-down-mode close-font closed-display color
  84.     color-blue color-green color-p color-red color-rgb colormap
  85.     colormap-display colormap-equal colormap-error colormap-id colormap-p
  86.     colormap-plist colormap-visual-info connection-failure convert-selection
  87.     copy-area copy-colormap-and-free copy-gcontext copy-gcontext-components
  88.     copy-image copy-plane create-colormap create-cursor
  89.     create-gcontext create-glyph-cursor create-image create-pixmap
  90.     create-window cursor cursor-display cursor-equal cursor-error
  91.     cursor-id cursor-p cursor-plist cut-buffer declare-event decode-core-error
  92.     default-error-handler default-keysym-index default-keysym-translate
  93.     define-error define-extension define-gcontext-accessor
  94.     define-keysym define-keysym-set delete-property delete-resource
  95.     destroy-subwindows destroy-window device-busy device-event-mask
  96.     device-event-mask-class discard-current-event discard-font-info display
  97.     display-after-function display-authorization-data display-authorization-name
  98.     display-bitmap-format display-byte-order display-default-screen
  99.     display-display display-error-handler display-finish-output
  100.     display-force-output display-host display-image-lsb-first-p
  101.     display-invoke-after-function display-keycode-range display-max-keycode
  102.     display-max-request-length display-min-keycode display-motion-buffer-size
  103.     display-nscreens display-p display-pixmap-formats display-plist
  104.     display-protocol-major-version display-protocol-minor-version
  105.     display-protocol-version display-release-number
  106.     display-report-asynchronous-errors display-resource-id-base
  107.     display-resource-id-mask display-roots display-vendor
  108.     display-vendor-name display-xdefaults display-xid draw-arc
  109.     draw-arcs draw-direction draw-glyph draw-glyphs draw-image-glyph
  110.     draw-image-glyphs draw-line draw-lines draw-point draw-points
  111.     draw-rectangle draw-rectangles draw-segments drawable
  112.     drawable-border-width drawable-depth drawable-display drawable-equal
  113.     drawable-error drawable-height drawable-id drawable-p
  114.     drawable-plist drawable-root drawable-width drawable-x drawable-y
  115.     error-key event-case event-cond event-handler event-key
  116.     event-listen event-mask event-mask-class extension-opcode
  117.     find-atom font font-all-chars-exist-p font-ascent
  118.     font-default-char font-descent font-direction font-display
  119.     font-equal font-error font-id font-max-byte1 font-max-byte2
  120.     font-max-char font-min-byte1 font-min-byte2 font-min-char
  121.     font-name font-p font-path font-plist font-properties
  122.     font-property fontable force-gcontext-changes free-colormap
  123.     free-colors free-cursor free-gcontext free-pixmap gcontext
  124.     gcontext-arc-mode gcontext-background 
  125.     gcontext-cache-p gcontext-cap-style
  126.     gcontext-clip-mask gcontext-clip-ordering gcontext-clip-x
  127.     gcontext-clip-y gcontext-dash-offset gcontext-dashes gcontext-display
  128.     gcontext-equal gcontext-error gcontext-exposures gcontext-fill-rule
  129.     gcontext-fill-style gcontext-font gcontext-foreground gcontext-function
  130.     gcontext-id gcontext-join-style gcontext-key gcontext-line-style
  131.     gcontext-line-width gcontext-p gcontext-plane-mask gcontext-plist
  132.     gcontext-stipple gcontext-subwindow-mode gcontext-tile gcontext-ts-x
  133.     gcontext-ts-y get-external-event-code get-image get-property
  134.     get-raw-image get-resource get-search-resource get-search-table
  135.     get-standard-colormap get-wm-class global-pointer-position grab-button
  136.     grab-key grab-keyboard grab-pointer grab-server grab-status
  137.     icon-sizes iconify-window id-choice-error illegal-request-error
  138.     image image-blue-mask image-depth image-green-mask image-height
  139.     image-name image-pixmap image-plist image-red-mask image-width
  140.     image-x image-x-hot image-x-p image-xy image-xy-bitmap-list
  141.     image-xy-p image-y-hot image-z image-z-bits-per-pixel image-z-p
  142.     image-z-pixarray implementation-error input-focus install-colormap
  143.     installed-colormaps int16 int32 int8 intern-atom invalid-font
  144.     keyboard-control keyboard-mapping keycode->character keycode->keysym
  145.     keysym keysym->character keysym->keycodes keysym-in-map-p
  146.     keysym-set kill-client kill-temporary-clients length-error
  147.     list-extensions list-font-names list-fonts list-properties
  148.     lookup-color lookup-error make-color make-event-handlers
  149.     make-event-keys make-event-mask make-resource-database make-state-keys
  150.     make-state-mask make-wm-hints make-wm-size-hints map-resource
  151.     map-subwindows map-window mapping-notify mask16 mask32
  152.     match-error max-char-ascent max-char-attributes max-char-descent
  153.     max-char-left-bearing max-char-right-bearing max-char-width
  154.     merge-resources min-char-ascent min-char-attributes min-char-descent
  155.     min-char-left-bearing min-char-right-bearing min-char-width
  156.     missing-parameter modifier-key modifier-mapping modifier-mask
  157.     motion-events name-error no-operation open-display open-font
  158.     pixarray pixel pixmap pixmap-display pixmap-equal
  159.     pixmap-error pixmap-format pixmap-format-bits-per-pixel
  160.     pixmap-format-depth pixmap-format-p pixmap-format-scanline-pad
  161.     pixmap-id pixmap-p pixmap-plist point-seq pointer-control
  162.     pointer-event-mask pointer-event-mask-class pointer-mapping
  163.     pointer-position process-event put-image put-raw-image
  164.     query-best-cursor query-best-stipple query-best-tile query-colors
  165.     query-extension query-keymap query-pointer query-tree queue-event
  166.     read-bitmap-file read-resources recolor-cursor rect-seq
  167.     remove-access-host remove-from-save-set reparent-window repeat-seq
  168.     reply-length-error reply-timeout request-error reset-screen-saver
  169.     resource-database resource-database-timestamp resource-error
  170.     resource-id resource-key rgb-colormaps rgb-val root-resources
  171.     rotate-cut-buffers rotate-properties screen screen-backing-stores
  172.     screen-black-pixel screen-default-colormap screen-depths
  173.     screen-event-mask-at-open screen-height screen-height-in-millimeters
  174.     screen-max-installed-maps screen-min-installed-maps screen-p
  175.     screen-plist screen-root screen-root-depth screen-root-visual
  176.     screen-root-visual-info screen-save-unders-p screen-saver
  177.     screen-white-pixel screen-width screen-width-in-millimeters seg-seq
  178.     selection-owner send-event sequence-error set-access-control
  179.     set-close-down-mode set-input-focus set-modifier-mapping
  180.     set-pointer-mapping set-screen-saver set-selection-owner
  181.     set-standard-colormap set-standard-properties set-wm-class
  182.     set-wm-properties set-wm-resources state-keysym-p state-mask-key
  183.     store-color store-colors stringable text-extents text-width
  184.     timestamp transient-for translate-coordinates translate-default
  185.     translation-function #-cmu type-error undefine-keysym unexpected-reply
  186.     ungrab-button ungrab-key ungrab-keyboard ungrab-pointer
  187.     ungrab-server uninstall-colormap unknown-error unmap-subwindows
  188.     unmap-window value-error visual-info visual-info-bits-per-rgb
  189.     visual-info-blue-mask visual-info-class visual-info-colormap-entries
  190.     visual-info-display visual-info-green-mask visual-info-id visual-info-p
  191.     visual-info-plist visual-info-red-mask warp-pointer
  192.     warp-pointer-if-inside warp-pointer-relative warp-pointer-relative-if-inside
  193.     win-gravity window window-all-event-masks window-background
  194.     window-backing-pixel window-backing-planes window-backing-store
  195.     window-bit-gravity window-border window-class window-colormap
  196.     window-colormap-installed-p window-cursor window-display
  197.     window-do-not-propagate-mask window-equal window-error
  198.     window-event-mask window-gravity window-id window-map-state
  199.     window-override-redirect window-p window-plist window-priority
  200.     window-save-under window-visual window-visual-info with-display
  201.     with-event-queue with-gcontext with-server-grabbed with-state
  202.     withdraw-window wm-client-machine wm-colormap-windows wm-command
  203.     wm-hints wm-hints-flags wm-hints-icon-mask wm-hints-icon-pixmap
  204.     wm-hints-icon-window wm-hints-icon-x wm-hints-icon-y
  205.     wm-hints-initial-state wm-hints-input wm-hints-p wm-hints-window-group
  206.     wm-icon-name wm-name wm-normal-hints wm-protocols wm-resources
  207.     wm-size-hints wm-size-hints-base-height wm-size-hints-base-width
  208.     wm-size-hints-height wm-size-hints-height-inc wm-size-hints-max-aspect
  209.     wm-size-hints-max-height wm-size-hints-max-width wm-size-hints-min-aspect
  210.     wm-size-hints-min-height wm-size-hints-min-width wm-size-hints-p
  211.     wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p
  212.     wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity
  213.     wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file
  214.     write-resources xatom
  215.  
  216.     trace-display suspend-display-tracing resume-display-tracing
  217.     untrace-display show-trace display-trace ; for backwards compatibility
  218.     describe-request describe-event describe-reply describe-error
  219.     describe-trace
  220.     ))
  221.  
  222.  
  223. ;;; The ANSI Common Lisp way
  224.  
  225. #+(and Genera clx-ansi-common-lisp)
  226. (eval-when (:compile-toplevel :load-toplevel :execute)
  227.   (setf *readtable* si:*ansi-common-lisp-readtable*))
  228.  
  229. #+clx-ansi-common-lisp
  230. (common-lisp:in-package :common-lisp-user)
  231.  
  232. #+clx-ansi-common-lisp
  233. (defpackage xlib
  234.   (:use common-lisp)
  235.   (:size 3000)
  236.   #+(or kcl ibcl) (:shadow rational)
  237.   #+allegro (:use cltl1)
  238.   #+allegro (:import-from excl without-interrupts)
  239.   #+excl (:import-from excl arglist)
  240.   #+Genera (:import-from sys array-register)
  241.   #+Genera (:import-from zwei indentation)
  242.   #+lcl3.0 (:import-from lcl arglist)
  243.   #+lispm (:import-from lisp char-bit)
  244.   #+lispm (:import-from sys arglist with-stack-list with-stack-list*)
  245.   (:export
  246.     *version* access-control access-error access-hosts
  247.     activate-screen-saver add-access-host add-resource add-to-save-set
  248.     alist alloc-color alloc-color-cells alloc-color-planes alloc-error
  249.     allow-events angle arc-seq array-index atom-error atom-name
  250.     bell bit-gravity bitmap bitmap-format bitmap-format-lsb-first-p
  251.     bitmap-format-p bitmap-format-pad bitmap-format-unit bitmap-image
  252.     boole-constant boolean card16 card29 card32 card8
  253.     card8->char change-active-pointer-grab change-keyboard-control
  254.     change-keyboard-mapping change-pointer-control change-property
  255.     char->card8 char-ascent char-attributes char-descent
  256.     char-left-bearing char-right-bearing char-width character->keysyms
  257.     character-in-map-p circulate-window-down circulate-window-up clear-area
  258.     close-display close-down-mode close-font closed-display color
  259.     color-blue color-green color-p color-red color-rgb colormap
  260.     colormap-display colormap-equal colormap-error colormap-id colormap-p
  261.     colormap-plist colormap-visual-info connection-failure convert-selection
  262.     copy-area copy-colormap-and-free copy-gcontext copy-gcontext-components
  263.     copy-image copy-plane create-colormap create-cursor
  264.     create-gcontext create-glyph-cursor create-image create-pixmap
  265.     create-window cursor cursor-display cursor-equal cursor-error
  266.     cursor-id cursor-p cursor-plist cut-buffer declare-event decode-core-error
  267.     default-error-handler default-keysym-index default-keysym-translate
  268.     define-error define-extension define-gcontext-accessor
  269.     define-keysym define-keysym-set delete-property delete-resource
  270.     destroy-subwindows destroy-window device-busy device-event-mask
  271.     device-event-mask-class discard-current-event discard-font-info display
  272.     display-after-function display-authorization-data display-authorization-name
  273.     display-bitmap-format display-byte-order display-default-screen
  274.     display-display display-error-handler display-finish-output
  275.     display-force-output display-host display-image-lsb-first-p
  276.     display-invoke-after-function display-keycode-range display-max-keycode
  277.     display-max-request-length display-min-keycode display-motion-buffer-size
  278.     display-nscreens display-p display-pixmap-formats display-plist
  279.     display-protocol-major-version display-protocol-minor-version
  280.     display-protocol-version display-release-number
  281.     display-report-asynchronous-errors display-resource-id-base
  282.     display-resource-id-mask display-roots display-vendor
  283.     display-vendor-name display-xdefaults display-xid draw-arc
  284.     draw-arcs draw-direction draw-glyph draw-glyphs draw-image-glyph
  285.     draw-image-glyphs draw-line draw-lines draw-point draw-points
  286.     draw-rectangle draw-rectangles draw-segments drawable
  287.     drawable-border-width drawable-depth drawable-display drawable-equal
  288.     drawable-error drawable-height drawable-id drawable-p
  289.     drawable-plist drawable-root drawable-width drawable-x drawable-y
  290.     error-key event-case event-cond event-handler event-key
  291.     event-listen event-mask event-mask-class extension-opcode
  292.     find-atom font font-all-chars-exist-p font-ascent
  293.     font-default-char font-descent font-direction font-display
  294.     font-equal font-error font-id font-max-byte1 font-max-byte2
  295.     font-max-char font-min-byte1 font-min-byte2 font-min-char
  296.     font-name font-p font-path font-plist font-properties
  297.     font-property fontable force-gcontext-changes free-colormap
  298.     free-colors free-cursor free-gcontext free-pixmap gcontext
  299.     gcontext-arc-mode gcontext-background
  300.     gcontext-cache-p gcontext-cap-style
  301.     gcontext-clip-mask gcontext-clip-ordering gcontext-clip-x
  302.     gcontext-clip-y gcontext-dash-offset gcontext-dashes gcontext-display
  303.     gcontext-equal gcontext-error gcontext-exposures gcontext-fill-rule
  304.     gcontext-fill-style gcontext-font gcontext-foreground gcontext-function
  305.     gcontext-id gcontext-join-style gcontext-key gcontext-line-style
  306.     gcontext-line-width gcontext-p gcontext-plane-mask gcontext-plist
  307.     gcontext-stipple gcontext-subwindow-mode gcontext-tile gcontext-ts-x
  308.     gcontext-ts-y get-external-event-code get-image get-property
  309.     get-raw-image get-resource get-search-resource get-search-table
  310.     get-standard-colormap get-wm-class global-pointer-position grab-button
  311.     grab-key grab-keyboard grab-pointer grab-server grab-status
  312.     icon-sizes iconify-window id-choice-error illegal-request-error
  313.     image image-blue-mask image-depth image-green-mask image-height
  314.     image-name image-pixmap image-plist image-red-mask image-width
  315.     image-x image-x-hot image-x-p image-xy image-xy-bitmap-list
  316.     image-xy-p image-y-hot image-z image-z-bits-per-pixel image-z-p
  317.     image-z-pixarray implementation-error input-focus install-colormap
  318.     installed-colormaps int16 int32 int8 intern-atom invalid-font
  319.     keyboard-control keyboard-mapping keycode->character keycode->keysym
  320.     keysym keysym->character keysym->keycodes keysym-in-map-p
  321.     keysym-set kill-client kill-temporary-clients length-error
  322.     list-extensions list-font-names list-fonts list-properties
  323.     lookup-color lookup-error make-color make-event-handlers
  324.     make-event-keys make-event-mask make-resource-database make-state-keys
  325.     make-state-mask make-wm-hints make-wm-size-hints map-resource
  326.     map-subwindows map-window mapping-notify mask16 mask32
  327.     match-error max-char-ascent max-char-attributes max-char-descent
  328.     max-char-left-bearing max-char-right-bearing max-char-width
  329.     merge-resources min-char-ascent min-char-attributes min-char-descent
  330.     min-char-left-bearing min-char-right-bearing min-char-width
  331.     missing-parameter modifier-key modifier-mapping modifier-mask
  332.     motion-events name-error no-operation open-display open-font
  333.     pixarray pixel pixmap pixmap-display pixmap-equal
  334.     pixmap-error pixmap-format pixmap-format-bits-per-pixel
  335.     pixmap-format-depth pixmap-format-p pixmap-format-scanline-pad
  336.     pixmap-id pixmap-p pixmap-plist point-seq pointer-control
  337.     pointer-event-mask pointer-event-mask-class pointer-mapping
  338.     pointer-position process-event put-image put-raw-image
  339.     query-best-cursor query-best-stipple query-best-tile query-colors
  340.     query-extension query-keymap query-pointer query-tree queue-event
  341.     read-bitmap-file read-resources recolor-cursor rect-seq
  342.     remove-access-host remove-from-save-set reparent-window repeat-seq
  343.     reply-length-error reply-timeout request-error reset-screen-saver
  344.     resource-database resource-database-timestamp resource-error
  345.     resource-id resource-key rgb-colormaps rgb-val root-resources
  346.     rotate-cut-buffers rotate-properties screen screen-backing-stores
  347.     screen-black-pixel screen-default-colormap screen-depths
  348.     screen-event-mask-at-open screen-height screen-height-in-millimeters
  349.     screen-max-installed-maps screen-min-installed-maps screen-p
  350.     screen-plist screen-root screen-root-depth screen-root-visual
  351.     screen-root-visual-info screen-save-unders-p screen-saver
  352.     screen-white-pixel screen-width screen-width-in-millimeters seg-seq
  353.     selection-owner send-event sequence-error set-access-control
  354.     set-close-down-mode set-input-focus set-modifier-mapping
  355.     set-pointer-mapping set-screen-saver set-selection-owner
  356.     set-standard-colormap set-standard-properties set-wm-class
  357.     set-wm-properties set-wm-resources state-keysym-p state-mask-key
  358.     store-color store-colors stringable text-extents text-width
  359.     timestamp transient-for translate-coordinates translate-default
  360.     translation-function undefine-keysym unexpected-reply
  361.     ungrab-button ungrab-key ungrab-keyboard ungrab-pointer
  362.     ungrab-server uninstall-colormap unknown-error unmap-subwindows
  363.     unmap-window value-error visual-info visual-info-bits-per-rgb
  364.     visual-info-blue-mask visual-info-class visual-info-colormap-entries
  365.     visual-info-display visual-info-green-mask visual-info-id visual-info-p
  366.     visual-info-plist visual-info-red-mask warp-pointer
  367.     warp-pointer-if-inside warp-pointer-relative warp-pointer-relative-if-inside
  368.     win-gravity window window-all-event-masks window-background
  369.     window-backing-pixel window-backing-planes window-backing-store
  370.     window-bit-gravity window-border window-class window-colormap
  371.     window-colormap-installed-p window-cursor window-display
  372.     window-do-not-propagate-mask window-equal window-error
  373.     window-event-mask window-gravity window-id window-map-state
  374.     window-override-redirect window-p window-plist window-priority
  375.     window-save-under window-visual window-visual-info with-display
  376.     with-event-queue with-gcontext with-server-grabbed with-state
  377.     withdraw-window wm-client-machine wm-colormap-windows wm-command
  378.     wm-hints wm-hints-flags wm-hints-icon-mask wm-hints-icon-pixmap
  379.     wm-hints-icon-window wm-hints-icon-x wm-hints-icon-y
  380.     wm-hints-initial-state wm-hints-input wm-hints-p wm-hints-window-group
  381.     wm-icon-name wm-name wm-normal-hints wm-protocols wm-resources
  382.     wm-size-hints wm-size-hints-base-height wm-size-hints-base-width
  383.     wm-size-hints-height wm-size-hints-height-inc wm-size-hints-max-aspect
  384.     wm-size-hints-max-height wm-size-hints-max-width wm-size-hints-min-aspect
  385.     wm-size-hints-min-height wm-size-hints-min-width wm-size-hints-p
  386.     wm-size-hints-user-specified-position-p wm-size-hints-user-specified-size-p
  387.     wm-size-hints-width wm-size-hints-width-inc wm-size-hints-win-gravity
  388.     wm-size-hints-x wm-size-hints-y wm-zoom-hints write-bitmap-file
  389.     write-resources xatom
  390.  
  391.     trace-display suspend-display-tracing resume-display-tracing
  392.     untrace-display show-trace display-trace ; for backwards compatibility
  393.     describe-request describe-event describe-reply describe-error
  394.     describe-trace))
  395.